home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Games World / Hot demos! / Starbound II / AI agents / Gypsum 1.00 / Gypsum 1.00.rsrc / ss$t_136 < prev    next >
Text File  |  1999-10-30  |  661b  |  32 lines
  1. situation barracks
  2. vars
  3.    success : boolean;
  4.    n : boolean;
  5.  
  6. begin
  7.    success := true;
  8.    while (success) do
  9.       begin
  10.          success := Add_unit_to_squad(7);
  11.          n := Add_unit_to_squad(6);
  12.          if (n) then success := true;
  13.          n := Add_unit_to_squad(5);
  14.          if (n) then success := true;
  15.          n := Add_unit_to_squad(4);
  16.          if (n) then success := true;
  17.          n := Add_unit_to_squad(3);
  18.          if (n) then success := true;
  19.          n := Add_unit_to_squad(2);
  20.          if (n) then success := true;
  21.          n := Add_unit_to_squad(1);
  22.          if (n) then success := true;
  23.       end;
  24.    success := Deploy_squad();
  25. end;
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.